home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / nan_news / toolkit / nwtts2.asm < prev    next >
Assembly Source File  |  1991-08-15  |  3KB  |  102 lines

  1. ; File......: NWTTS2.ASM
  2. ; Author....: James R. Zack
  3. ; CIS ID....: 75410,1567
  4. ; Date......: $Date:   15 Aug 1991 23:07:52  $
  5. ; Revision..: $Revision:   1.2  $
  6. ; Log file..: $Logfile:   E:/nanfor/src/nwtts2.asv  $
  7. ; This is an original work by James Zack and is placed in the
  8. ; public domain.
  9. ;
  10. ; Modification history:
  11. ; ---------------------
  12. ;
  13. ; $Log:   E:/nanfor/src/nwtts2.asv  $
  14. ;  
  15. ;     Rev 1.2   15 Aug 1991 23:07:52   GLENN
  16. ;  Forest Belt proofread/edited/cleaned up doc
  17. ;  
  18. ;     Rev 1.1   11 Apr 1991 23:57:18   GLENN
  19. ;  Librarian error!  The ft_ extension was added to the function name 
  20. ;  after testing, by mistake, and I didn't realize that .ASM functions
  21. ;  _had_ to obey the 10-char limit, thus linkers couldn't find the 
  22. ;  proper symbol.  Changed this to ft_ttsabor().  Apologies to Mr. Zack.
  23. ;  
  24. ;     Rev 1.0   01 Apr 1991 01:03:40   GLENN
  25. ;  Nanforum Toolkit
  26. ;  
  27.  
  28. ; $DOC$
  29. ; $FUNCNAME$
  30. ;     FT_TTSABORT()
  31. ; $CATEGORY$
  32. ;     NetWare
  33. ; $ONELINER$
  34. ;     Abort explicit and implicit NetWare TTS transactions
  35. ; $SYNTAX$
  36. ;     FT_TTSABORT() -> nResult
  37. ; $ARGUMENTS$
  38. ;     None
  39. ; $RETURNS$
  40. ;       0 - Abort Successful (backout completed)
  41. ;     253 - Transaction Tracking disabled (no backout performed)
  42. ;     254 - Transaction ended, records locked (No backout performed)
  43. ;     255 - No explicit transactions active
  44. ; $DESCRIPTION$
  45. ;    Consult your NetWare documentation for details on the NetWare 
  46. ;    Transaction Tracking System.
  47. ; $EXAMPLES$
  48. ;    nResult := FT_TTSABORT()
  49. ;    DO CASE
  50. ;       CASE nResult == 0
  51. ;          ? "TTS aborted"
  52. ;       CASE nResult == 253
  53. ;          ? "Transction tracking, no backout performed"
  54. ;       CASE nResult == 254
  55. ;          ? "Transaction ended, records locked, no backout performed"
  56. ;       CASE nResult == 255
  57. ;          ? "No transactions active"
  58. ;       OTHERWISE
  59. ;          ? "Unknown result"
  60. ;    ENDCASE
  61. ; $SEEALSO$
  62. ;    FT_TTSAVAIL() FT_TTSBEGIN() FT_TTSEND() FT_TTSSTAT()
  63. ; $END$
  64. ;
  65. ;
  66.  
  67.  
  68. PUBLIC    FT_TTSABOR
  69. EXTRN     __RETNI:FAR
  70. extrn     __RET:FAR
  71. _NanFor  SEGMENT 'CODE'
  72.           ASSUME cs:_NanFor
  73. FT_TTSABOR PROC    FAR
  74.           push    bp
  75.           mov     bp,sp
  76.           push    ds
  77.           push    es
  78.           push    si
  79.           push    di
  80.           mov     ah,0c7h          ; Novell API function c7
  81.           mov     al,03h           ; Subfunction 02
  82.           int     21h              ; TTS Abort Transaction
  83.           mov     ah,00h
  84.           push    ax
  85.           call    __RETNI
  86.           add     sp,2
  87.           pop     di
  88.           pop     si
  89.           pop     es
  90.           pop     ds
  91.           pop     bp
  92.           call    __RET
  93.           ret
  94.  
  95. FT_TTSABOR endp
  96.  
  97. _NanFor   ends
  98.  
  99.           end
  100. 
  101.